﻿Imports Microsoft.VisualBasic

Public Class DBItemUnitSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public ItemID As New TableField("ItemID", Data.SqlDbType.NVarChar)
    Public UnitID As New TableField("UnitID", Data.SqlDbType.NVarChar)

    Sub New()
        MyBase.StoredProcedureName = "ItemUnitSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal ItemID As String = "", _
                                 Optional ByVal UnitID As String = "") As Object

        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.ItemID.SetValue(ItemID, MyBase.FieldsArrayList)
        Me.UnitID.SetValue(UnitID, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class
